home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO073.dsk / PRINT.PLAYERS.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  66 lines
  1. 10  REM  PRINT.PLAYERS
  2. 20 X = 50: DIM P$(X)
  3. 30  REM  TURN ON 80 COL
  4. 40 D$ =  CHR$(4)
  5. 50  PRINT D$;"PR#3"
  6. 60  PRINT  CHR$(12); CHR$(18)
  7. 70  HOME 
  8. 80  POKE 1403,25
  9. 90  VTAB (1): PRINT "PRINT a PLAYER LIST"
  10. 100  VTAB (2): PRINT "==============================================================================="
  11. 110  VTAB (22): PRINT "==============================================================================="
  12. 120  PRINT D$;"PREFIX/PROGRAM/PLAYERS"
  13. 130  VTAB (3)
  14. 140  PRINT D$;"CAT"
  15. 150  VTAB (23): PRINT "Which GROUP NAME? (without '.PLAYERS') ";: CALL  -657:A$ = "": FOR Y = 512 TO 767: IF  PEEK(Y) < >141  THEN A$ = A$ + CHR$( PEEK(Y) -128): NEXT Y
  16. 160 L$ = A$
  17. 170  IF L$ = ""  THEN 150
  18. 180  ONERR  GOTO 470
  19. 190 L$ = L$ +".PLAYERS"
  20. 200  PRINT D$;"OPEN";L$
  21. 210  PRINT D$;"READ";L$
  22. 220  FOR D = 1 TO X
  23. 230 : INPUT P$(D)
  24. 240  NEXT D
  25. 250  PRINT D$;"CLOSE";L$
  26. 260  POKE 216,0
  27. 270 B = 20
  28. 280  GOSUB 650
  29. 290  GOSUB 510
  30. 300  PRINT D$;"PREFIX/PROGRAM"
  31. 310  VTAB (23)
  32. 320  PRINT "Turn PRINTER ON. Adjust paper. Press RETURN to print or [ESC] for MENU";
  33. 330  GET Q$
  34. 340  IF Q$ =  CHR$(27)  THEN  PRINT D$;"PREFIX/PROGRAM": PRINT D$;"-MENU"
  35. 350  REM  PRINT ON PRINTER
  36. 360 B = 26
  37. 370  PRINT D$;"PR#1"
  38. 380  GOSUB 510
  39. 390  PRINT D$;"PR#0"
  40. 400  VTAB (23): POKE 1403,0: CALL  -868: PRINT "Press RETURN to restart or [ESC] for MENU ";
  41. 410  GET Q$
  42. 420  IF Q$ =  CHR$(27)  THEN  PRINT D$;"PREFIX/PROGRAM": PRINT D$;"-MENU"
  43. 430  PRINT D$;"PREFIX/PROGRAM"
  44. 440  GOTO 70
  45. 450  END 
  46. 460  REM     CLOSE IMPROPER FILE
  47. 470  PRINT D$;"CLOSE";L$
  48. 480  PRINT D$;"DELETE";L$
  49. 490  POKE 216,0
  50. 500  GOTO 150
  51. 510  REM DISPLAY NAMES
  52. 520  VTAB (1): POKE 1403,40: PRINT "      ";L$;" GROUP"
  53. 530  PRINT "================================================================================"
  54. 540 SP$ = "                              "
  55. 550  FOR D = 1 TO X
  56. 560  IF D <10  THEN BS$ = "  "
  57. 570  IF D >9  THEN BS$ = " "
  58. 580  IF (P$(D) < >"ZZZip")  THEN  PRINT BS$;"[";D;"] ";P$(D); LEFT$(SP$,B - LEN(P$(D)));
  59. 590 T = T +1: IF T = 3  THEN  PRINT "":T = 0
  60. 600  NEXT D
  61. 610  PRINT 
  62. 620 T = 0
  63. 630  VTAB (22): PRINT "==============================================================================="
  64. 640  RETURN 
  65. 650  FOR V = 3 TO 21: VTAB (V): CALL  -868: NEXT V
  66. 660  RETURN